class A
feature
    FIELD : INTEGER
end
class B
inherit 
        A
end

class APP
feature
    INIT
    local  B : B
    do
        b.field:=2
        b.field:=b
    end
end